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Avant-Propos 


Les jeux présentés dans ce livre utilisent des fonctions propres à votre 
microordinateur : son, couleur, graphisme haute résolution, caractères gra- 
phiques définis par l'utilisateur, etc. Pour cette raison, ces programmes ne 
fonctionnent que sur l’Amstrad et sont difficilement adaptables à des maté- 
riels différents. 

Au-delà du jeu lui-même, l'étude de ces programmes vous enseignera 
de nombreuses techniques de programmation qui vous seront très utiles pour 
développer vos propres programmes. 





NOTES CONCERNANT LES PROGRAMMES 


Les programmes doivent être tapés tels qu'ils sont reproduits. Ils doivent 
être enregistrés sur cassette (ou sur disquette) pour éviter d’avoir à les reta- 
per à chaque utilisation. Utilisez pour cela l'instruction 


SAVE “ < nom > ” 


en remplaçant < nom > par le nom du programme à enregistrer. 
Exemple : pour enregistrer le programme BLITZ, tapez 


SAVE “BLITZ" 


et pressez la touche ENTER après avoir appuyé sur les touches PLAY et REC 
du magnétophone. Pour recharger un programme, rembobinez la cassette 
jusqu'au début du programme et tapez LOAD ‘” < nom > ”’. Si vous voulez, 
par exemple, recharger le programme BLITZ, tapez 


LOAD ‘BLITZ"” 
et pressez la touche ENTER. 


Afin de réduire au maximum les risques d'erreurs, les listings des pro- 
grammes ont été reproduits par photographie. Si vos programmes ne fonc- 
tionnent pas, vérifiez-les attentivement en considérant plus particulièrement 
les points suivants : 


— lignes oubliées, 

— numéros de lignes erronés, 

— erreurs de frappe (attention en particulier à ne pas confondre la let- 
tre O et le chiffre O ou la lettre | et le chiffre 1). 








UAS 


Grâce à votre ordinateur, vous pouvez jouer au squash assis dans un fau- 
teuil. La raquette se déplace à l’aide du joystick ou des touches de contrôle 
du curseur et de la touche < COPY >. Vous disposez de dix balles que vous 
devez garder en jeu le plus longtemps possible. Chaque balle renvoyée rap- 
porte un point. 


10 REN #H##HH#HEHEEE 

20 REM # SQUASH # 

30 REM #H##Y##4RHEE 

40 GOSUB 630 

50 GOTO 170 

60 D=2#((J0Y(0)=4)-(J0Y(0)=8)) 
70 IF D€}0 THEN D0=D 

80 IF J0Y(0)=0 THEN D0=0 
90 RX=RI+D0 

100 RETURN 

110 D$=INKEVS 

120 D=2#((D$=F1$)-(D$=F2$)) 
130 IF D(>0 THEN DO=D 
140 IF D$=ST$ THEN D0=0 
150 R\=RX+D0 

160 RETURN 

170 LOCATE BX,BY 

180 PEN 3 

190 PRINT N$; 

200 BX=BX+DX 

210 BY=BY+DY 

220 LOCATE BX,BY 
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230 PRINT B$; 
240 IF BV=22 AND ABSBX-RK-3))1 THEN 350 
250 IF BY=22 THEN S=S+1:PRINT S$3:DY=-DY 
240 IF BY=2 THEN PRINT 54; :DV=-DV 
270 IF BX=3 OR BX=38 THEN PRINT S$;:DX=-DX 
280 ON JS GOSUB 60,110 

290 IF RAÇ1 THEN Rai 

300 1F RK334 THEN RK=34 

310 PEN 4 

320 LOCATE RK,RY 

330 PRINT Ré; 

340 G0TO 170 

350 NB=NB+1 

360 IF NB=11 THEN 470 

370 LOCATE BX,BY 

380 PRINT Né; 

390 FOR 1=1 T0 3 

400 PRINT S$: 

410 FOR J=1 TO 400 

420 NEXT J 

430 NEXT ! 

440 DO=0 

450 GOSUR 980 

460 GOTO 170 

470 LOCATE 14,6 

480 PRINT "SCORE :":5; 

490 IF S)R1 THEN RI=S 

500 LOCATE 14,11 

510 PRINT "RECORD :";RI; 

920 LOCATE 14,16 

530 PRINT "UNE AUTRE ?"; 

540 NB=0 

550 $=0 

560 D$=INKEYS 

370 IF D$C)"" THEN 580 

580 D$=INKEYS 

590 IF D$="" THEN 580 

800 IF D$C)"N" AND D$C)"n" THEN 40 
810 CLS 

820 END 

830 MODE 1 

640 CLS 
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SQUASH 


850 DEFINT A-2 

680 INK 1,24 

870 INK 2,20 

680 INK 3,8 

890 INK 4,0 

700 BORDER 19 

710 PAPER 2 

720 S$=CHRS (7) 

730 LOCATE 12,11 

740 PRINT "JOYSTICK 10 ou N) ?'; 
750 D$=INKEVS 

780 1F D$="" THEN 750 

170 IF D$="0" OR Dé="o" THEN 1821 ELSE J9=2 
780 CLS 

790 SYMBOL 240,255,255,255 

800 SYMBOL 241,24,126,126,255,255,126, 126,24 
810 SYMBOL 242,255,255,255,255, 255,255, 255,255 
820 CB$=CHRS (242) 

830 N$=CHR$ (32) 

840 PEN ! 

850 FOR BX=2 TO 39 

860 LOCATE BX,1 

870 PRINT CB$; 

880 NEXT BX 

890 FOR BY=2 TD 22 

900 LOCATE 2,BY 

910 PRINT CBS; 

920 LOCATE 39,B 

930 PRINT CB$; 

940 NEXT BY 

950 RS=NSENS4CHRS (240) +CHR$ (240) +CHR$ (240) +N$4N$ 
980 B$=CHRS (241) 

970 RK=17 

980 RY=23 

990 BY=22° 

1000 BA=INT (RND#30) +7 

1010 DY=-1 

1020 DA= (INT (RND#2) -0, 5) #2 

1030 F1$=CHR$ (242) 

1040 F2$=CHR$ (243) 

1050 ST$=CHRS (224) 

1080 RETURN 
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Votre mission est de détruire la ville que vous survolez afin de pouvoir 
atterrir. À chaque passage, votre avion vole un peu plus bas. Vous ne pou- 
vez larguer une bombe (en appuyant sur une touche quelconque) que lors- 
que la bombe précédente a atteint son objectif ou le sol. Lorsque votre avion 
a atterri (ou lorsqu'il s’est écrasé contre un immeuble), le score est affiché 
ainsi que le record du jour. 


10 REN HEREFKEHEE 

20 REM # BLITZ # 

30 REM #WHEHHHHIR 

40 DEFINT A-V 

50 DIM TB(40,25) 

60 GOSUB 650 

70 GOSUB 880 

80 FOR HY={ TO 24 

90 FOR HX=1 TO 40 

100 LOCATE HX,HY 

110 2=-7 

120 W=2+0,5 

130 PEN 

140 PRINT A$(W); 

150 PEN 2 

160 IF HK>37 THEN 180 

170 IF TR(HX+3,HY)()0 THEN 280 
180 IF INKEY$<>"" AND BY=1 AND HK<>40 THEN BA=HX+1:BY=HY+1 
190 IF BY<>0 THEN GOSUB 550 ELSE GOSUB 420 
200 NEXT HX 

210 LOCATE 39,HY 


220 PRINT NN$; 
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230 NEXT HY 

240 FOR 1=1 TO 500 

250 NEXT ! 

240 S=S+40HHY+HX 

210 60TD 70 

280 S28+40#HV+HX 

290 LOCATE BK,B1 

300 PRINT Né; 

310 FOR I=HY T0 23 

320 LOCATE HX+1,1 

330 PRINT NN$; 

340 LOCATE HX+41,141 

350 PRINT RIGHTS (A$(1) ,2); 
360 FOR J=1 TO 100 

370 NEXT J 

340 NEXT I 

390 IF SDR THEN R=5 
400 LOCATE 4,1 

410 PEN ! 

420 PRINT "SCORE : "35, 
430 PRINT "RECORD :"3R; 
440 FOR I=1 TO 100 

450 NEXT I 

480 R$=INKEYS 

470 IF R$C)"" THEN 460 
480 LOCATE 8,14 

490 PRINT "UNE AUTRE 7”; 
500 R$=INKEYS 

510 IF R$="" THEN 500 
520 IF R$C"N" AND R$C)"n" THEN 5=0:6070 70 
530 CLS 

540 END 

550 IF BY)24 THEN BY=1 
560 LOCATE BX,B1 

570 PRINT N#; 

580 TB(BX,B1)=0 

590 Bi=BY 

600 IF BYC>1 THEN LOCATE BX,BY:PRINT B$;:BY=BY4l 
810 RETURN 

820 FOR 1=1 TO 10 

830 NEXT ! 

640 RETURN 
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BLITZ 


850 MODE 1 

660 CLS 

670 INK 1,18 

680 INK 2,6 

490 INK 3,24 

700 INK 4,1 

710 BORDER ! 

720 PAPER. 4 

730 DIM A$(1) 

740 SYMBOL 240,193,224,225,255,255, 255, 64,0 
750 SYMBOL 241,248,144,249,253,255,253,241 ,98 
760 SYMBOL 242,248,144,248,252,254,252,240,96 
710 SYMBOL 243,40,16,56,124,124,124,56, 1 
780 SYMBOL 244,15,15,15,255,255,255, 255,255 
790 SYMBOL 245,240 ,240,240,255,255,255,255, 255 
800 SYMBOL 246,255,255,255,255,255,255, 255,255 
810 SYMBOL 247,0,0,0,255,255,255, 255,255 
820 A$(0)=CHR$(32)4CHR$ (240) 4CHR$ (241) 

830 A$(1)=CHR$ (32) +CHR$ (240) +CHRS (242) 

840 B#=CHRS (243) 

850 N$=CHR$ (32) 

860 NN$=N$+N$ 

870 RETURN 

880 Hy=1 

890 HY=1 

900 BY=1 

910 BY=1 

920 Bi=BY 

930 2=0,5 

940 ERASE TB 

950 DIN TB(40,25) 

960 PEN 3 

970 CLS 

980 FÜR I=11 TO 31 

990 C=INT (RND#4) +4 

1000 FOR J=24 TO INTIRND#6)+14 STEP-1 

1010 LOCATE 1,1 

1020 PRINT CHRS(2404C); 

1030 TBUI,J)=1 

1040 NEXT J 

1050 NEXT I 

1060 RETURN 
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Les rôles sont maintenant inversés. Vous manœuvrez la D.C.A. et devez 
essayer d'abattre les avions qui passent au-dessus de vous. Pour tirer, utili- 
sez n'importe quelle touche. Vous disposez au départ de quinze missiles. 
Si vous abattez dix avions, vous obtenez un bonus de dix points et dix mis- 
siles supplémentaires. 


10 REM #HHHY#HHEHE 

20 REM # DC.A, # 

30 REM ######## #4 

40 GOSUB 630 

50 AS=RIGHTS (AS, 11+LEFTS(A$,39) 

60 BS=RIGHTS(B$,39)4LEFT#(B$,1) 

70 LOCATE 1,1 

80 PEN 1 

90 PRINT Af; 

100 LOCATE 1,3 

110 PRINT B$; 

120 R$=INKEYS 

130 IF R$C)"" AND MY=25 THEN MV=24:M$=CHRS (244) :NM=NN-1 
140 PEN 3 

150 IF MYC325 THEN MY=MY-2:LOCATE MXMV:PRINT M$3 :LOCATE MX,MY+2:PRINT 0$; 
180 IF MYC)4 THEN 260 

170 IF MID$(B$,20,11=0$ THEN 260 

180 LOCATE MX,3 
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190 PRINT Ef; 

200 LOCATE MX,MY 

210 PRINT Of; 

220 PRINT 54; 

230 S=S41 

240 B#=LEFTS(B$,17)+01$+RIGHTS (RS, 19) 
250 GOTO 350 

240 1F MYC)2 THEN 380 

210 IF MIDS(A$,20,1)=0$ THEN 380 
280 LOCATE MK, 

290 PRINT E$; 

300 5=5+1 

310 LOCATE NX,MY 

320 PRINT 0$; 

330 PRINT 5$; 

340 AS=LEFTS (AS, 17)401$4RIGHTS (AS, 19) 
350 1F s)1 AND s/10=INT(S/10) THEN GOSUB 560 
360 MY=25 

370 M$=CHRS (246) 

380 LOCATE 1,25 

390 PEN 3 

400 PRINT "S :"385"M :";NN; 

410 IF NMCA AND MY=25 THEN 440 

420 IF MYC=2 THEN LOCATE MU,2:PRINT 0$: :MY=25: M#=CHRS (246) 
430 GOTO 50 

440 1F SR THEN R=S 

450 LOCATE 8,11 

480 PRINT "SCORE :"36,"RECORD :°3R3 
470 LOCATE 16,15 

480 PRINT "UNE AUTRE 7" 

490 R$=INKEYS 

500 IF R$C)"" THEN 490 

510 R$=INKEYS 

520 IF R$="" THEN 510 

530 IF R$CD"N" AND R$C)"n" THEN 40 
540 CLS 

550 END 

560 A$=A1$ 

570 B$=B1$ 

580 NM=NM+10 

590 FOR I=1 TO 300 

600 NEXT I 


— 18 — 


D.C.A. 


610 9=8+10 
820 RETURN 

630 DEFINT A-2 

&40 MODE ! 

650 INK 1,18: INK 2,24: INK 3,8:INK 4,2 

680 CLS 

870 BORDER ! 

680 PAPER 4 

890 SYHBOL 240,193,224,224,255,255, 255,64, 0 
700 SYMBOL 241,248,144,249,253,255,253, 241,96 
710 SYMBOL 242,31,9,159,191,255,191,143,6 
720 SYNBOL 243,131,7,135,255,259,255 ,2,0 
730 SYMBOL 244,16,56,56,58,56,56,16,56 

740 SYMBOL 245,0,0,0,0,0,7,7,7 

750 SYMBOL 246,56,56,56,254,254,255, 255,255 
780 SYNBOL 247,0,0,0,0,0,192,192, 192 

770 SYMBOL 248,146,84,58,254,56,84, 146,0 
780 5=0 

190 A$="":B4=""; DS=CHRS (32) :01$=0$+08+0$+08 
800 FOR I=1 T0 5 

B10 AS=AS+CHRS (240)4CHR$ (241)401$+08+0$ 

820 B$=B$+CHRS (242) +CHR$ 1243) +015+0$+0$ 

830 NEXT I 

B4O A1$=A$:B1$=B$:E$=CHR$ (248) 

850 J$=CHRS (245) +CHR$ (248) 4CHRS (247) 

860 MX=20:MY=25: M$=CHRS (246) :NN=15 

870 PEN 2:LOCATE MX-1,MY:PRINT J$; 

880 PEN 1:LOCATE 1,1:PRINT Af: 

890 S$=CHRS (7) 

900 LOCATE 1,3:PRINT B$::RETURN 
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Deux joueurs s'affrontent pour se partager l'espace vital. Chacun doit 
s'efforcer, tout en se déplaçant, de ne jamais recouper sa trace ou celle de 
son adversaire, et de ne pas sortir du rectangle dessiné sur l'écran. Utilisez 
les touches suivantes : 


Joueur de droite : <P>, <L>, <:> et <.2> 
Joueur de gauche : <W>,<A>, <S>et <Z> 


10 REM #HEHHHE 

20 REM * TRACE # 

30 REM #H##### #4 

40 DIN TB(40,25) 

30 GOSUB 720 

60 D$=INKEYS 

70 HB=(D$="L")-(D$x":")+(D$m1") 

80 VB=(D$="P")-(D$=", ")+(D$="p") 

90 HA=(D$="A")-(D$="5")+(D$="a")-(D$="5") 
100 VA=(D$="4")-(D$="2")+(D$="n")-(D$s"2") 
110 IF HAC)0 THEN HI=HA:V1=0 

120 IF VAC>0 THEN VI=VA:H1=0 

130 IF HBC)0 THEN H2=HB:V2=0 

140 IF VB€>0 THEN V2=VB:H2=0 
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150 X1=k1+H1 

160 Y1=Y{+VI 

170 IF TB(XL,VL)CDO THEN 330 
180 LOCATE X1,Y 

190 PEN 3 

200 PRINT Né: 

210 TBUKI,YL)=1 

220 K2=K2+H2 

230 Y2=V24V2 

240 IF TRIX2,Y2)€)0 THEN 390 
250 LOCATE 12,Y2 

240 PEN 4 

270 PRINT Né; 

280 TBIX2,V2)=1 

290 PRINT S$; 

300 FOR 1= TO 200 

310 NEXT I 

320 GOTO 40 

330 F22F241 

340 GOSUB 660 

350 IF F2=10 THEN 450 

340 IF INKEYS()"" THEN 360 
370 GOSUB 790 

380 G0TO 40 

390 F1=F1+1 

400 GOSUB 640 

410 IF Fi=10 THEN 520 

420 IF INKEYS()"" THEN 420 
430 GOSUB 790 

440 GOTO 40 

450 CLS 

480 PEN 1 

470 LOCATE 10,6 

480 PRINT "LE JOUEUR DROIT BABNE": 
490 LOCATE 16,11 

500 PRINT F2;"A";F{; 

510 GOTO 580 

520 CLS 

530 PEN ! 

540 LOCATE 10,6 

850 PRINT "LE JOUEUR GAUCHE GAGNE": 
560 LOCATE 16,11 


= 25 


TRACE 


570 PRINT F1;"A";F2; 

580 LOCATE 15,16 

590 PRINT "UNE AUTRE ?"; 

600 IF INKEY#C)"" THEN 800 

810 D$=INKEYS 

820 IF D$="" THEN 610 

830 1F D#C)"N" THEN RUN 

840 CLS 

830 END 

680 FOR 1=1 TD 5 

870 PRINT 54; 

480 FOR =1 TO 100 

890 NEXT J 

700 NEXT I 

710 RETURN 

720 MODE ! 

730 INK 1,16 

740 INK 2,18 

750 INK 3,14 

780 INK 0,17 

170 PAPER 2 

780 BORDER 23 

790 ERASE TB 

800 DIM TB(40,25) 

810 CLS 

820 N#=CHR# (143) 

830 S$=CHR$(7) 

840 PEN 1 

850 FOR X1=1 TO 40 

860 LOCATE X1,1:PRINT N$3:TBIXI,1)=1 
870 LOCATE K1,24PRINT N$;:TBIX1,24)=1 
880 NEXT K1 

890 FOR Y{=2 TO 23 

900 LOCATE 1,YH:PRINT N$3:TB(1,Yi)=1 
910 LOCATE 40,YI:PRINT N$;:TB(40,Vii=1 
920 NEXT Yi 

930 LOCATE 3,25:PEN 3 

940 PRINT "JOUEUR GAUCHE :"3F1; 

950 LOCATE 23,25:PEN 4 

960 PRINT "JOUEUR DROIT :":F2; 

970 X1=9:Y1=12: 12232: V2=12:H1a1:V1=0 
980 H2=-1:V2=0:81=0:82=0:RETURN 











Partez aux sports d'hiver sans risque de vous casser une jambe ! Lancez- 
vous du haut de la piste et essayez de passer le plus grand nombre possible 
de portes sans heurter les piquets. Frappez n'importe quelle touche pour chan- 
ger de direction. 


10 REM HA####REEE 

20 REM * SLALOM # 

30 REM #KKHHHHHEX 

40 GOSUB 450 

50 FOR K=1 TO 300 

60 IF K)=16 AND (K-5)/10=INT((K-5)/10) THEN GOSUB 330 
70 IF K<284 AND K/10=INT(K/10) THEN GOSUB 350 
80 IF INKEY$C>"" THEN DX=-DX 

90 Si=5X 

100 SX=6X+DX 

110 IF SX{S THEN SX=3:DX=-DX 

120 IF SX>38 THEN SX=38:DX=-DX 

130 LOCATE S1,5Y 

140 PRINT B$; 

130 LOCATE 40,25 

160 PRINT RBB$ 

170 LOCATE SX,5Y 
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180 PRINT S$(DX/240. 5) ; 
190 S1284 

200 NEXT K 

210 LOCATE 8,6 

220 PEN 3 

230 PRINT "PORTE(S) RATEE(S) :"3T 
240 LOCATE 4,9 

250 PRINT "UNE AUTRE DESCENTE ?" 
280 D$=INKEYS 

210 1F D$(>"" THEN 260 

280 D#=INKEYS 

290 1F D$="" THEN 280 

300 IF D$C)"N" AND D#C)"n" THEN RUN 
310 CLS 

320 END 

330 1F SAC)P244 AND SXC)P2+2 THEN T=T#{:PRINT 28: 
340 RETURN 

350 P=P+(INT(RND(1)#31-1)#8 

360 IF PC3 THEN P=i1 

370 IF P)35 THEN P=27 

380 P2=P1 

390 PI=P 

400 LOCATE P,24 

410 PEN 3 

420 PRINT P$; 

430 PEN 4 

440 RETURN 

450 DIM #11) 

480 SYMBOL 240,16,32,241,18,28,8,16,32 
470 SYMBOL 241,8,4,143,72,56,16,8,4 
480 SYMBOL 242,8,12,14,12,8,8,8,8 
490 SYMBOL 243,8,24,56,24,8,8,8,8 
500 5$(0)=CHR$ (240) 

510 S$(1)=CHR$ (241) 

520 B$=CHR$ (32) 

530 P#=2CHRS (243) +B$+B$+CHR4 (242) 
540 MODE ! 

350 DI=-1 

560 SY=9 

570 SX=20 

580 51281 

590 P=19 
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SLALOM 


600 BB$=B$+8$ 
610 Z$=CHR$(7) 
620 INK 0,2 
830 INK 1,26 
640 INK 2,16 
850 INK 3,22 
660 BORDER 23 
870 CLS 

6BO RETURN 
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RAMASSE-MIETTES 





Voici une curieuse façon d'utiliser un ordinateur : vous devez vous effor- 
cer de ramasser le plus vite possible les miettes qui jonchent la nappe. Vous 
disposez de 30 secondes pour un nettoyage complet. Les miettes sont repré- 
sentées par des points noirs. Le joystick ou les touches de déplacement du 
curseur vous permettent de contrôler votre ramasse-miettes. 


10 REM HEKEEEBEEEEENEEE 

20 REM # RANASSE-MIETTES # 

30 REM HERKEREREEEREEERUNEE 

40 DIM TB(40,25) 

50 GOTO 100 

60 K=J0Y(0) 

70 Di=(K=4)-(K=8) 

80 D2=(K=1)-(K=2) 

90 GOTO 200 

100 GOSUB 360 

110 LOCATE 1,25 

120 PEN 3 

130 PRINT " TEMPS :"3INT(Z) , SCORE : "5 S3N$; 
140 PEN { 

150 IF 2(1 THEN 920 

160 ON JS GOTO 40 

170 D$=INKEYS 

180 DI=(D$=F1$)-(D$=F2$) 

190 D2=(D$=F3$)-(D$=F4$) 

200 IF D1{>0 THEN DX=Di : DY=0 

210 IF D2()0 THEN DY=D2:DX=0 

220 KP=PX+DX 

230 YP=PY+DY 

240 IF TB(XP,YP)=1 THEN KP=PX:YP=PY 
250 IF TB(XP,YP)=2 THEN S=S+1:PRINT 5$3:X2{+1 
260 LOCATE PX,PY 
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270 PRINT Né; 

280 LOCATE XP, YP 

290 PRINT J$; 

300 TBIXP,YP)=0 

310 PA=KP 

320 PY=YP 

330 Z=1-0,2 

340 IF XeNM THEN 1060 
350 60TO 110 

340 CLS 

370 MODE 1 

380 INK 1,15 

390 INK 2,0 

400 INK 3,17 

410 INK 0,22 

420 BORDER 2 

430 LOCATE 11,11 

440 PRINT "JOYSTICK 7"; 
450 1F INKEYSC)"" THEN 450 
440 D$=INKEYS 

470 I=RND(1) 

480 IF D$="" THEN 480 


490 IF D$="0" OR D$= "o" THEN JS=1 ELSE J5=0 


500 CLS 

910 J$=CHR$(224) 

320 F1$=CHR$ (242) :F2$=CHR$ (243) 
930 F3$=CHRS (240) :FA$=CHRS (241) 
540 M$="," 

390 N$=CHR$ (32) 

560 5=0 

570 NHz10 

580 X=0 

590 ERASE TB 

600 DIM TB(40,25) 

610 PEN 3 

620 FDR PX=1 T0 40 

630 LOCATE PX,1 

640 PRINT CHR$I143);:TB(PX,1)=1 
650 LOCATE PX,24 

660 PRINT CHR$(143);:TB(PX,24)=1 
670 NEXT PX 

680 FOR PY=2 TO 23 


RAMASSE-MIETTES 


890 LOCATE 1,PY 
700 PRINT CHRS(143)::TB(1 ,PY)=1 
710 LOCATE 40,PY 

720 PRINT CHR$(143);:TB(40,PY)=1 
730 NEXT PY 

740 PEN 3 

750 FOR I=1 TO M 

760 PX=INT (RND (1) #38) +2 

770 PY=INT (RND (1) #22) +2 

780 IF TB(PX,PYIC)0 THEN 780 
790 LOCATE PX,PY 

800 PRINT M$; : TBIPX,PY)=2 
810 NEXT I 

820 PEN 1 

830 PA=INT IRND (1) #38)+2 

840 PY=INT (RND {1 ) #22)+2 

850 IF TB(PX,PY)C)0 THEN 830 
860 LOCATE PX,PY 

870 PRINT J$; 

880 230 

890 DI=0 

900 DY=0 

910 RETURN 

920 FOR 1=1 TO 500 

930 NEXT I 

940 IF INKEY#C)"" THEN 940 
950 PEN 3 

940 IF SR THEN ReS 

970 LOCATE 14,11 

980 PRINT "RECORD :"53R; 

990 LOCATE 14,17 

1000 PRINT "UNE AUTRE ?"; 
1010 D$=INKEYS 

1020 IF Dé="" THEN 1010 

1030 IF D#C)"N" AND D$C)'n" THEN 100 
1040 CLS 

1050 END 

1080 NM=NM+1 

1070 LOCATE XP, YP 

1080 PRINT Né 

1090 60SUB 580 

1100 GOTO 110 


-n- 





Essayez de traverser le champ de bataille avec votre tank tout en évitant 
les mines qui s'y trouvent placées au hasard par l'ordinateur. Chaque fois 
que vous atteignez le haut de l'écran, vous repartez pour un nouveau par- 
cours. Pour vous diriger, utilisez les touches de contrôle du curseur ou le 
joystick. 


10 REN #######4 
20 REM # TANK # 
30 REM #b###4#4 
40 R=0 

50 DIN TB(40,25) 
80 GOSUB 770 

70 S=0 

80 M=40 

90 DL=100 

100 D=0 

110 PEN 3 

120 FOR I=1 T0 40 
130 LOCATE I,1 
140 PRINT B$; 
150 NEXT I 

160 PEN 1 

170 FOR I={ TO M 


AMSTRAD JEUX D'ACTION 


180 PX= INT (RND (1) #38) +2 
190 PY=INT (RND41) #20) 42 
200 LOCATE PX,PY 

210 PRINT M$ 

220 TBIPX,PY)=1 

230 NEXT I 

240 FOR 122 TO 25 

250 LOCATE 1,1 

280 PRINT M$; 

210 TB(1,1)=f 

280 LOCATE 40,1 

290 PRINT W$ 

300 TB(40,1)=i 

310 NEXT I 

320 JX=INTIRND(1)#21)+10 
330 JY=25 

340 LOCATE UK, UV 

350 PRINT J$; 

340 FOR I=1 TO DL 

370 NEXT ! 

380 R$=INKEYS 

390 Di (R$=F1$)-(R$=F2$) 
400 1F DIC)0 THEN D=DI 
410 IF R$2F3$ THEN DO 
420 LOCATE jx, jy 

430 PRINT CHRS (32: 

440 JX=JX4D 

450 JYaJY-1 

480 JX=JN+(J0Y(0)=4)-(JDY(0)=8) 
470 IF TB(JX,JY)C)0 THEN 540 
480 LOCATE JX, 

490 PRINT 0$; 

500 S=$+1 

510 SOUND 1,1000/8,1,15 
820 1F JY=1 THEN 690 
530 GOTO 360 

540 LOCATE JK,1Y 

550 PRINT Et; 

560 R$=INKEYS 

570 IF SR THEN ReS 
580 LOCATE 15,10 

590 PRINT "SCORE :"36; 


TANK 


800 LOCATE 15,13 
810 PRINT "RECORD :"3R5 
820 LOCATE 15,18 

630 PRINT "UNE AUTRE ?"} 
&4O RS=INKEYS 

850 IF R$="" THEN 640 
640 IF R$C"N" AND R$C)"n" THEN ERASE TB:G0TO 50 
870 CLS 

880 END 

890 FOR I=1 TO 500 

700 MENT I 

710 N=N+i 

720 DL=DL-20 

730 ERASE TB 

740 DIM TB(40,25) 

750 CLS 

780 GOTO 100 

770 BORDER 22 

780 INK 0,25 

790 INK 1,0 

800 INK 2,18 

810 INK 3,1 

820 CLS 

830 M$="+" 

840 N$=CHRS (32) 

850 SYMBOL 240,8,8,107,127,127,127,127,99 
860 J$=CHR$ (240) 

870 E$=CHR$ (143) 

880 B$=E$ 

890 F1$=CHRS 1242) 

900 F2$eCHR$ (243) 

910 F3$=CHRS (224) 

920 RETURN 








ALPHABET 


Voici un jeu d'adresse assez difficile. Vous tenterez de marquer le plus 
grand nombre de points possible en effaçant les lettres affichées par l'ordi- 
nateur. Utilisez le joystick ou les touches de contrôle du curseur. 

Attention : vous devez effacer les lettres dans l’ordre alphabétique en 
évitant les obstacles placés au hasard sur l'écran, et ceci en un temps limité. 
(Le temps qui vous reste est affiché au bas de l'écran.) Lorsque toutes les 
lettres sont effacées, le jeu reprend avec une lettre supplémentaire. 





10 REN #H#EHEHHHEEHE 

20 REM # ALPHABET # 

30 REM HHREEHHHENEE 

40 DIM TB(40,25) 

50 60SUB 1020 

60 5=0 

70 X=0 

80 N$=CHR$ 132) 

90 P$=CHR$ (224) 

100 GOSUB 640 

110 FOR I=i TO X 

120 ON JK GOT 190 

130 D$=INKEVS 

140 DH=(D$=F1$)-(D$=F2$) 
150 DV=(D$=F3$)-(D$2F4$) 
160 IF DH()0 THEN DX=DH: DY=0 
170 IF DV{)0 THEN DY=DV:DX=0 
180 GOTO 220 

190 K=J0Y(0) 

200 DX=(K=4)-(K=8) 

210 DY=(K=1)-(K2=2) 

220 2=1-0,1 

230 LOCATE 1,25 

240 PEN 4 

250 PRINT "TEMPS :"3INT(Z}; 
260 IF ZC1 THEN 460 


AMSTRAD JEUX D'ACTION 


270 PX=PH+DX 
280 PY=PY#DY 

290 C=TB(PX,PY) 

300 IF C=I+64 THEN S=S+1:PRINT S$::60T0 380 
310 IF C)0 THEN PX=XP:PY=P 
320 LOCATE XP,YP 

330 PRINT N#3:TBIXP, YP)=0 
340 LOCATE PX,PY 

350 PRINT P$3 : TBIPX,PY)=P 
360 AP=PX: VP=PY 

370 GOTO 120 

380 LOCATE KP, YP 

390 PRINT N#3:TBIXP, VP)=0 
400 LOCATE PX,PY 

410 PRINT P$3;:TBIPX,PY)=P 
420 XP=PX: YP=PY 

430 NEXT I 

440 GOSUB 640 

450 6070 110 

460 D$=INKEVS 

470 IF RÇS THEN R=S 

480 PEN 2 

490 LOCATE 11,11 

500 PRINT “TEMPS ECOULE": 
510 LOCATE 11,14 

520 IF INKEV#C)"" THEN 520 
530 PEN 2 

540 PRINT "SCORE :":S; 

550 LOCATE 11,17 

560 PRINT "RECORD :"3R; 
570 LOCATE 11,20 

580 PRINT "UNE AUTRE ?"; 
590 D#=INKEVS 

600 IF D$="" THEN 590 

610 IF D$C)"N" AND D$C)"n" THEN 60 
420 CLS 

830 END 

640 CLS 

850 INK 0,26 

660 INK 1,18 

b70 INK 2,22 

680 INK 3,0 


ALPHABET 


690 BORDER 17 

700 CLS 

710 X=X+#1 

720 S$=CHR$ (7) :P=224 

730 ERASE TB:DIM TB(40,25) 

740 PEN i 

750 FOR PX=1 TO 40 

760 LOCATE PX,1:PRINT CHR$(143); 
770 TB(PX,1)=143:TB(PX,24)=143 
780 LOCATE PX,24:PRINT CHR$(143); 
790 NEXT PX 

800 FOR PY=2 TO 23 

810 LOCATE 1 ,PY:PRINT CHR$(143); 
820 LOCATE 40,PY:PRINT CHR$(143); 
830 TB(1,PY)=143:TB(40,PY)=143 
840 NEXT PY 

850 FOR Z=1 TO 120 

860 GOSUB 990 

870 LOCATE PX,PY:PRINT CHR$(143)5;:TB(PX,PY)=143 
880 NEXT Z 

890 FOR Zz1 TO X 

900 GOSUB 990 

910 PEN S:LOCATE PY,PY:TB(PX,PY)=2+b4 
920 PRINT CHR$(Z+64); 

930 NEXT 2 

940 PEN 2 

950 G6OSUB 990 

960 LOCATE PX,PY:PRINT P$:TB(PX,PY)=P 
970 KP=PX:YP=PY: 2230: DX=0: DY=0 
980 RETURN 

990 PX=INTIRND(1)#38)+2:PY=INT (RND(1)#23) +2 
1000 IF TB(PX,PY)<>0 THEN 990 

1010 RETURN 

1020 MODE 1 

1030 CLS:LOCATE 11,11 

1040 PRINT “JOYSTICK ?"; 

1050 D$=INKEYS$: CERND (1) 

1060 IF D$="" THEN 1050 

1070 IF D$="0" OR D$="n" THEN JKa1 
1080 F1$=CHR$ (242) :F2$=CHR$ (243) 
1090 F3$=CHR$ (240) :F4$=CHR$ (241) 
1100 RETURN 


= 39€ 








ATTERRISSAGE 


Après un long voyage en apesanteur, poser une navette spatiale en dou- 
ceur n'est pas chose aisée ; mais grâce à votre ordinateur, vous allez être 
en mesure de vous entraîner sans danger. Vous devez poser votre navette 
sur l'une des quatre aires prévues à cet effet. Vous pouvez vous diriger vers 
la droite et vers la gauche à l'aide des touches de contrôle du curseur ou 
du joystick. 


10 REM HHHHHERERERFAHEE 

20 REM # ATTERRISSAGE # 

30 REM #HHHEEHEHENEERUEE 

40 SPEED KEY 5,5 

50 GOSUB 490 

60 FOR I=i TO 100 

70 NEXT I 

80 GOSUB 670 

90 FOR G=2 TO 23 

100 D$=INKEYS 

110 NHENX 

120 NX=NX+(D$=CHR$ (242) )-(D$=CHR$ (243) ) 
130 NX=NX+(J0Y(0)=4)-{J0Y(0)=8) 
440 IF NXC2 THEN NA=2 

150 IF NX>38 THEN N\=38 

160 LOCATE NH,Q-1 

170 PRINT C$; 


AMSTRAD JEUX D'ACTION 


180 LOCATE NH,0 
190 PRINT Ch; 

200 LOCATE NX,0 

210 PRINT M; 

220 LOCATE NK,0+1 

230 PRINT Hé; 

240 NEXT Q 

250 IF INT((NX-3)/10)=(NY-3)/10 THEN GOTO 40 
280 PEN 3 

270 LOCATE NX,8 

280 PRINT Cf; 

290 LOCATE NX,0-1 

300 PRINT C$; 

310 LOCATE NN-1,041 

320 PRINT Hé; 

330 PEN 2 

340 LOCATE 2,7 

350 PRINT "VOTRE NAVETTE S'EST ECRAGEE" 
360 LOCATE 12,12 

370 PRINT "SCORE :"38-1; 

380 LOCATE 11,15 

390 PRINT UNE AUTRE 2"; 

400 FOR I=1 TO 100 

410 NEXT I 

420 IF INKEY#C)"" THEN GOTO 420 
430 SPEED KEY 30,5 

440 D$=INKEVS 

450 1F D$="" THEN 440 

480 IF D#C"N" AND D$C)"n" THEN RUN 
470 CLS 

480 END 

490 INK 0,1 

500 INK 1,25 

510 INK 2,22 

520 INK 4,8 

530 BORDER 1 

540 PEN ! 

550 CLS 

560 GOSUB 770 

570 B$=CHRS (32) 

580 N#=CHR4 (240) +CHR$ (241) 

590 C#=B$+B$ 


— 42 — 


ATTERRISSAGE 


600 M$=CHR$ (242) +CHR$ (243) 
610 A$=CHRS (244) 4CHR$ (244) 

420 B#=CHR$ (242) 

430 X$=CHRS (243) 

640 H$=CHRS (243) 4CHR$ (241 ) +CHRS (240) 4CHR$ (242) 
850 S=0 

660 RETURN 

470 FOR I=1 TO 20 

680 NEXT ! 

890 CLS 

700 FOR 1=0 T0 3 

710 LOCATE 3+1#10,25 

720 PRINT Af; 

730 NEXT I 

740 S=6+1 

750 NU=INT (RND (1) #36) +2 

780 RETURN 

770 SYHBOL 240,0,31,63,127,239,239,255, 239 
780 SYHBOL 241,0,224,240,248,220,220,252,220 
790 SYMBOL 242,239,127,63,75,128,128,64,224 
800 SYMBOL 243,220,248,240,72,4,4,8,28 

810 SYMBOL 244,255,255 ,255 

820 RETURN 








CHASSE AU 
CANARD 





Votre micro-ordinateur vous invite à une partie de chasse au canard. Les 
canards volent de droite à gauche en haut de l'écran. Vous vous déplacez 
en utilisant le joystick ou les touches de contrôle du curseur. La touche 
< COPY > vous permet de vous arrêter. Vous pouvez tirer autant de car- 
touches que vous voulez, mais il ne passera que 20 canards, et votre but 
est d'en abattre le plus possible. Pour tirer, frappez la barre d'espacement 
ou pressez le bouton du joystick. Si vous atteignez un canard, vous mar- 
querez un point et vous le verrez tomber en battant des ailes. 


10 REM FRHEEREREREFÉRÉREREE 
20 REM + CHASSE AU CANARD * 
30 REM #HHHHHEHHRRNEREERERRE 
40 GOSUB 390 

50 1Z=-7 

60 H=2+0,5 

70 CX=CX-1 

80 IF CX<1 THEN GOSUB 730 
90 IF NC=0 THEN 880 

100 LOCATE CX,CY 

110 PEN 0 

120 PRINT CC${H); 

130 JX=JX+D{ 

140 IF JK)37 THEN JX=37 

150 IF JX<3 THEN JX=3 

160 LOCATE X,Y 

170 PRINT N$; 


AMSTRAD JEUX D'ACTION 


180 LOCATE JX,JY 

190 PEN ! 

200 PRINT J$: 

210 K=JX 

220 IF TYOY THEN TY=1-2:6070 240 
230 Ti=IX 

240 IF TYC3 THEN 780 

250 LOCATE TX,TY 

240 PEN ! 

270 PRINT J$; 

280 1F TYCJY THEN LOCATE TX,TV4#2:PRINT N$; 
290 K#=INKEVS 


300 D=2#{ (N$=CHRS (242) )- (X$2CHRS (243) }) 
310 IF D()0 THEN Di=D 

320 1F X#=CHRS(224) THEN D{=0 

330 1F J8=1 THEN J{=J+2#((J0V(0)24)-(J0Y(0)=8) ) 
340 1F X#C> N$ AND (J9=0 OR JOY(0)16) THEN 50 
350 IF TYC)JY THEN 50 

340 TY=JV-2 

370 TAsJk 

380 6070 50 

390 CLS 

400 BORDER 24 

410 SYMBOL 240,0,0,0,15,31 

420 SYMBOL 241,83,124,254, 255,255 

430 SYMBOL 242,0,0,254,255,255,124,124,15 

440 SYMBOL 243,0,0,0,128,240 

450 SYNBOL 244,8,28,42,8,8,8,8,20 

480 SYMBOL 245,148,84,56,254,56,84, 146 

470 INK 0,22 

480 INK 1,18 

490 INK 2,1 

500 INK 3,25 

510 LOCATE 11,142PRINT "JOYSTICK 7"; 

520 X#=INKEYS 

530 1F X$="" THEN 520 

540 1F X$="0" OR X$="0" THEN JS=1 ELSE JS=0 
550 CLS 

560 DIN CC#(1) 

570 J$=CHR$ (244) 

580 N#=CHR$(32) 

590 E$=CHR$(245) 


CHASSE AU CANARD 


600 CC$(0)=CHR$ (240) +CHRS(241)4CHRS (243) 4N$ 
810 CCS (1)2CHRS 1240) +CHRS 1242) 4CHRS (243) 4N$ 
620 JX=20 

830 JY225 

640 NC=20 

850 Tt=JX 

680 TY=JY 

870 Z=0,5 

680 CH=37 

890 CV=1 

700 X=JX 

710 Y=JY 

720 RETURN 

730 LOCATE 1,1 

740 PRINT NS$#NS4N$: 

750 CX=37 

780 NC=NC-1 

770 RETURN 

780 IF TX=CX OR TX=CN+1 THEN 1000 
790 LOCATE TK, TY42 

800 PRINT N$; 

810 LOCATE TX,TY 

820 PRINT $; 

830 LOCATE TX,TY 

840 PRINT Né; 

850 TA=JX 

860 TV 

870 IF NCC)0 THEN 250 

880 CLS 

890 PEN 3 

900 LOCATE 14,11 

910 PRINT "SCORE :"8 

920 LOCATE 13,14 

930 PRINT “UNE AUTRE 2"; 
940 IF INKEYSC)"" THEN 940 
950 X#=INKEYS 

960 IF X$="" THEN 950 

970 IF K#CD"N" AND K#C)®n* THEN RUN 
980 CLS 

990 END 

1000 LOCATE TX,TY 

1010 PRINT E$: 


2 47 = 


1020 LOCATE TX,TY+2 
1030 PRINT N$; 

1040 PRINT CHR$(7); 
1050 FOR I=1 TO 50 
1060 NEXT I 

1070 S=6+1 

1080 DA=CX 

1090 C\=37 

1100 PEN 0 

1110 FOR Ie2 TO 25 
1120 Z=-1 

1130 He2+0,5 

1140 LOCATE DX,1-1 
1150 PRINT N$+N$+N$ 
1160 LOCATE DX,I 
1170 PRINT CC$(H); 
1180 PRINT CHR$(7); 
1190 FOR J=1 TO 10 
1200 NEXT j 

1210 NEXT I 

1220 NC=NC-1 

1230 FOR I=1 TO 500 
1240 NEXT 

1250 CLS 

1260 IF NC=0 THEN 880 
1270 TY=JY 

1280 GOTO 50 


AMSTRAD JEUX D'ACTION 











MICROPEDE 


Essayez de diriger votre mille-pattes robot le plus longtemps possible. 
Il doit se nourrir de fleurs vertes (les rouges sont empoisonnées) sans jamais 
sortir du cadre ou recouper son propre corps. La difficulté vient de ce que 
sa longueur augmente d’une unité à chaque repas, ce qui rend les déplace- 
ments de plus en plus délicats. Utilisez les touches de contrôle du curseur 
ou le joystick. 


10 REM KKKY#KERENEEE 

20 REM # MICROPEDE * 

30 REM ###HKEHNEREUNS 

40 DIM TB(40,25) 

50 GOSUB 610 

80 K#=INKEYS 

70 )Y=J0Y(0) 

80 DX=(X$=F1$)-(X4=F2$) 

90 DX=DK+(JY=4)-(JV=8) 

100 DY=(X#=F3$)-(1#<F4$) 

110 DY=DY+(JY=1)-(JY=2) 

120 IF DKC)0 THEN X1=Dk:Y1=0 
130 1F DYC)0 THEN Yi=DY:k1=0 
140 IF FL=1 THEN FL=0:6070 220 
150 LOCATE A(1,K) ,A(1,V) 

180 PRINT N$; 

170 TBUA(L,K) ,A(1,Y))=0 


AMSTRAD JEUX D'ACTION 


180 FOR I=1 TO L 
190 ACI,YI=A(I+1,Y) 

200 A(I,KI=A(T#1 4) 

210 NEXT ! 

220 A(L,Y)=A(L-1 ,V)+Y1 
230 A(L,K)=A(L-1,#)+1 
240 G=TBUAIL,K) IL, VI 
250 1F G=B THEN 310 

280 IF SON THEN 380 
270 LOCATE AIL,X) AL, Y 
280 PRINT M$; 

290 TBIAUL,X) ACL, VI )=h 
300 6070 60 

310 EOSUB 1310 

320 LOCATE A(L,K) AL, Y) 
330 PRINT Hé; 

340 TB(AIL,) AL, YI) eh 
350 LeL41 

340 FLe 

370 GOT 60 

380 GOSUB 500 

390 LOCATE 11,10 

400 PRINT "SCORE :";L#10-70; 
410 LOCATE 11,15 

420 PRINT "UNE AUTRE ?°; 
430 X#=INKEYS 

440 IF X$C)"* THEN 430 
450 K#=INKEVS 

480 IF X$="" THEN 450 
470 IF X$CD"N" AND X#C)'n° THEN RUN 
480 CLS 

490 END 

500 PEN ! 

510 FOR lei T0 6 

520 LOCATE AL) ,A(L,Y 
530 PRINT N$; 

540 PRINT CHRS(7); 

550 LOCATE A(L,X) ,A(L,Ÿ) 
560 PRINT "#"; 

570 TBIAIL,X) AL, VIN 
580 NEXT ! 

590 PEN 3 


— 52 — 


800 RETURN 

810 INK 0,28 

820 INK 1,18 

630 INK 2,22 

640 INK 3,2 

850 BORDER 8 

660 CLS 

670 GOSUB 730 
680 GOSUB 940 
690 GOSUB 1030 
700 GOSUB 1270 
710 GOSUB 1310 
720 RETURN 

730 N$=CHR$ (32) 
740 N=0 

750 Hg=vg" 

780 Hai 

770 Bf="a" 

780 Ba2 

790 DIM A(70,2) 
800 H$="8" 

810 M=3 

820 LeB 

830 DOz1 

840 Ya1 

850 122 

860 FL=0 

870 Xi 

880 Y1=0 

890 F1$=CHR$ 1242) 
900 F2#=CHR$ 1243) 
910 F3#=CHR$ (240) 
920 F4$=CHR$ (241) 
930 RETURN 

940 PEN 3 

950 FOR 121 TO L 
960 A(I,YI=13 
970 A(I,X)=3+] 
980 LOCATE A(I,K),A(I, Y) 
990 PRINT M$; 
1000 TBUALI,X),AUL,Y))2N 
1010 NEXT I 


MICROPEDE 


AMSTRAD JEUX D'ACTION 


1020 RETURN 
1030 PEN 1 

1040 FOR I=1 TO 40 
1050 LOCATE 1,1 
1080 PRINT H$; 

1070 TB(I,1)=H 
1080 LOCATE 1,25 
1090 PRINT Hfy 

1100 TB(1,25)2H 
1110 NEXT I 

1120 FOR I=2 T0 24 
1130 LOCATE 1,1 
1140 PRINT Hf; 
1150 TB(1,1)#k 
1180 LOCATE 40,1 
1170 PRINT H$; 
1180 TB(40,1)=H 
1190 NEXT I 

1200 FOR I=1 TO 80 
1210 6OSUB 1270 
1220 LOCATE PX,PY 
1230 PRINT H$; 

1240 TB(PX,PYI=H 
1250 NEXT I 

1260 RETURN 

1270 PH=INT (RND(1)#38+2) 
1280 PY=INT (RND (1) #23+2) 
1290 IF TBPX,PY)C0 THEN 1270 
1300 RETURN 

1310 GOSUB 1270 
1320 PEN 2 

1330 LOCATE PX,PY 
1340 PRINT B$; 

1350 TB(PX,PY)=B 
1360 PEN 3 

1370 RETURN 











NUMERIX 





Dans ce jeu, vous devez bombarder à l'aide de votre avion les chiffres 
qui se trouvent en bas de l'écran afin d'ajouter ceux-ci à votre total de points. 
Pour lâcher une bombe, tapez une touche quelconque. Chaque chiffre atteint 
augmente le nombre de bombes disponibles. 


10 REM #K##KEEEERE 

20 REM * NUMERIX # 

30 REM #H##HHNENEER 

40 DIN TB(40,25) 

50 R=0 

60 ERASE TB 

70 DIM TB(40,25) 

80 GOSUB 480 

90 LOCATE AX,AY 

100 PEN ! 

110 PRINT A$; 

120 PEN 2 

130 X$=INKEYS$ 

140 IF X$C>"" AND BY=0 THEN BÂ=AK:BY=AY+1{:NM=NM-1 
150 IF BYC)0 THEN BY=BY+i 

160 IF BY>25 THEN LOCATE BX,BY-1:PRINT N$;:BV=0:1F NM<1 THEN 330 
170 IF BYC>0 AND TB(BX,BY)C)0 THEN GOSUB 230 


AMSTRAD JEUX D'ACTION 


180 IF BYC)O THEN LOCATE BX,BY-1:PRINT N$3:LOCATE BX,BV:PRINT B$: 
190 IF BY=0 THEN FOR I=1 TO S:NEXT I 
200 AX=AÏ-1 

210 IF AXCA THEN AX=3B:LOCATE 1,AY:PRINT Né; 
220 6070 90 

230 LOCATE BX,BV-1 

240 PRINT N$; 

250 LOCATE BX,BY 

240 PRINT Né; 

270 S=S+TB(BX,BY)#10 

280 TB(BX,BY)=0 

290 BY=0 

300 NM=NM+0,5 

310 BOSUB 690 

320 RETURN 

330 PEN 3 

340 LOCATE 15,10 

350 PRINT "SCORE :"364 

340 IF SR THEN LET Ra$ 

370 LOCATE 15,13 

380 PRINT "RECORD :"3R 

390 LOCATE 15,16 

400 PRINT "UNE AUTRE 2"; 

410 K$=INKEYS 

420 IF K$C)"" THEN 410 

430 X$=INKEVS 

440 IF K#e"" THEN 430 

450 IF X$CD"N® AND K#C)"n" THEN GOTO 60 
480 CLS 

470 END 

480 INK 0,23 

490 INK 1,9 

500 INK 2,18 

510 INK 3,0 

520 BORDER 2 

530 CLS 

540 N$=CHRS (32) 

550 A$=CHR$ (240) +CHR$ (241)4N$ 
560 Ak=38 

570 AY=3 

580 B$=CHRS (242) 

590 M$-N$+N$+NS 


NUMERIX 


800 Bk=0 

610 BY=0 

620 GOSUB 780 

630 FOR I=1 T0 15 

b40 GOSUB 690 

650 NEXT I 

b60 NH=20 

670 5=0 

680 RETURN 

890 J=INT(RND(1)#9)+1 

700 X=INT(RND(L)#39)+#1 

710 VeINT(RND(1)#3)+23 

720 IF TB(X,YIC)0 THEN 700 

730 PEN 3 

740 LOCATE X,Y 

750 PRINT CHRS(J+48) ; 

780 TBIX,Y)=J 

770 RETURN 

780 SYMBOL 240,0,0,0,0,0,83,127,255 
790 SYMBOL 241,0,0,0,1,3,255,255,235 
800 SYMBOL 242,40,16,56,124,124,124,5b,18 
810 RETURN 
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Un porte-avions ennemi s’est aventuré dans les eaux territoriales et refuse 
d'obéir aux sommations. Aux commandes de votre Mirage 2000, vous devez 
absolument le détruire avant qu'il ne menace votre base. Tapez une touche 
quelconque pour tirer. 


10 REM #H##HHHHH 

20 REM * EXOCET # 

30 REM ###H#H#H##REE 

40 R=0 

50 GOSUB 880 

60 GOSUB 700 

70 PEN 1 

80 LOCATE AX,AY:PRINT A$; 

90 IF BX)36 THEN LOCATE 37,BY:PRINT M$;:BB=1:G0T0 120 
100 PEN 7 

110 LOCATE BX,BY:PRINT B$:; 

120 AX=AX-1 

130 IF AX<1 THEN LOCATE 1,AY:PRINT M$; :A1=38 

140 BB=BB+0,2 

150 BX=INT (BB) 

160 K$=[NKEYS$ 

170 IF X$C)"" AND EY=0 THEN EX=AX:EY=AV+{:NX=NX-1 


AMSTRAD JEUX D'ACTION 


180 IF EYC)0 THEN G0TO 220 
190 FOR I=1 TO 10 

200 MENT ! 

210 G0TO 70 

220 EN=EX-1 

230 EV2EY+! 

240 LOCATE EX#1,EY-1:PRINT N$; 
250 IF EXC1 THEN EX240 

280 IF EV=26 THEN GOTO 310 
270 IF EY=25 AND ABSIEX-2-BX)(2 THEN GOSUB 530 
280 PEN 2 

290 LOCATE EXEV:PRINT Ef; 

300 G0TO 70 

310 IF EX=40 THEN EX=1 

320 LOCATE EX+1,EV-L:PRINT Né; 
330 EY=0 

340 EX=0 

350 IF NI=0 THEN 370 

340 GOTO 70 

370 CLS 

380 IF S)R THEN R=S 

390 K#=INKEYS 

400 IF K#C)"* THEN 390 

410 PEN 3 

420 LOCATE 11,10 

430 PRINT "SCORE :"38} 

440 LOCATE 11,13 

450 PRINT "RECORD :"3R 

480 LOCATE 11,16 

470 PRINT "UNE AUTRE 7"; 

480 X$=INKEYS 

490 IF X$="" THEN 480 

500 IF K$C)"N" AND X$C)"n" THEN 80 
510 CLS 

520 END 

530 LOCATE EX+1,EY-1 

540 PRINT Né; 

550 626+10 

560 PEN 2 

570 LOCATE EX,EY 

580 PRINT Ff} 

590 FOR I=1 T0 30 


EXOCET 


800 X=INTIRND(1)#4) 
610 VaINT(RND(1)#6) 

820 LOCATE EX+#4-1,EY-V 

830 PRINT F$; 

640 NEXT ! 

650 FOR 1=1 TO 200 

660 NEXT I 

870 NieNX+1 

680 CLS 

690 GOTO 70 

700 CLS 

710 B#eCHR$ (32) +CHR$ (240) 4CHRS (241) +CHRS (242) 
720 AN=38 

730 S=0 

740 BBel 

750 Ba 

780 A$=CHRS (243) 4CHRS (244) 4CHRS (32) 
770 N$=CHR$ (32) 

780 H#=N$+N$4N$ 

790 E4=CHR$ (245) 

800 F$=CHR$ (246) 

810 EX=0 

820 EY=0 

830 XC=2 

840 N1=20 

850 BY=25 

860 AY=8 

870 RETURN 

880 BORDER 2 

890 INK 0,23 

900 INK 1,25 

910 INK 2,16 

920 INK 3,0 

930 CLS 

940 SYMBOL 240,0,0,0,0,7,255,255,127 
950 SYMBOL 241,16,16,56,252,255,255, 255, 255 
980 SYNBOL 242,0,0,0,0,224,255,252,248 
970 SYMBOL 243,0,0,0,0,0,63,127,255 
980 SYMBOL 244,0,0,0,1,3,255,255,255 
990 SYMBOL 245,0,0,0,0,125,255, 125,0 
1000 SYMBOL 246,8,33,128,10,0,40,0,16 
1010 RETURN 
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Vous devez maintenant aider une pauvre tortue à regagner la mer en évi- 
tant les crabes voraces qui patrouillent sur la plage. Chaque tortue amenée 
au but rapporte un point. Vous disposez de cinq vies pour tenter de marquer 
un score maximum. Utilisez les touches de contrôle du curseur pour avan- 
cer et pour reculer. 


10 REM #H###34844 

20 REM # CRARES # 

30 REN #HRR###REEEE 

40 DEFINT A-2 

50 GOSUB 850 

80 LOCATE 1,21 

70 PEN 1 

80 PRINT "VIE(S) REST, ":NP; 

90 AS=RIGHTS (AS, L)4LEFTS (AS, 39) 
100 BH=RIBHTS(B$,39)4LEFTS (B$, 1) 
110 LOCATE 1,1 

120 PRINT Af: 

130 LOCATE 1,42 

140 PRINT B$; 

150 LOCATE 1,43 

160 PRINT A$; 

170 LOCATE 1,X4 

180 PRINT B4} 

190 Dé= INKEYS 

200 IF INKEYSC)'" THEN 200 


AMSTRAD JEUX D'ACTION 


210 PY=PY+(D$=F 18) =(D$=F2$) 
220 IF PY311 THEN PY=11 
230 IF PY=3 THEN 380 
240 C=Nt 

250 1F PY=X1 OR PY=X3 THEN C£=MIDS(AS,PX,1) 
260 1F PY=l2 OR PY=k4 THEN Cé=MID$(B$,PX, 1) 
270 1F CONS THEN 560 
280 LOCATE PX, YP 

290 PRINT Né; 

300 LOCATE PX,PY 

310 PEN 3 

320 PRINT P#} 

330 PEN 1 

340 YP=PY 

350 TaT+i 

360 IF 1500 THEN 680 
370 GOTO 40 

380 LOCATE PX, VP 

390 PRINT Né: 

400 LOCATE PX,PY 

410 PEN 3 

420 PRINT P4; 

430 PEN ! 

440 PRINT CHR$(7) 

450 FOR I=1 T0 200 

480 NEXT ! 

470 LOCATE PX,PY 

480 PRINT Né 

490 PY=10 

500 YP=PY 

510 S=g+1 

520 LOCATE 1,1 

530 PRINT "SCORE 1"39, ,"RECORD :"3R 
540 GOSUB 1170 

550 G0TO 40 

560 NPaNP-1 

570 PEN 2 

580 LOCATE PX,YP 

590 PRINT N$y 

800 LOCATE PX,PY 

610 PRINT CHR$1225); 
420 BOSUB 1220 
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CRABES 


830 IF NP=0 THEN 680 

640 PY=10 

650 YP=PY 

660 GOSUB 1170 

670 BOTO 40 

880 CLS 

490 IF SR THEN Re$ 

895 PEN ! 

700 IF T(S00 THEN 730 

710 LOCATE 11,9 

720 PRINT "## TEMPS ECOULE #4"; 
730 LOCATE 11,13 

740 PRINT "SCORE 1"38; 

750 LOCATE 11,17 

780 PRINT "RECORD :°;R 

770 LOCATE 11,21 

780 PRINT “UNE AUTRE 7%; 

790 1F INKEVS#C)'" THEN 790 

800 Dé=INKEYS 

810 IF D$="" THEN 790 

820 IF D$C)"N" AND D$C)"n" THEN 50 
830 CLS 

840 END 

850 MODE ! 

860 INK 0,24 

870 INK 1,0 

880 INK 2,16 

890 INK 3,22 

900 BORDER 2 

910 CLS 

920 SYMBOL 240,24,90, 128,60, 80, 128,90 
930 SYMBOL 241,7,15,31,31,18,16,12 
940 SYHBOL 242,224,240,248,248,72,8,48 
950 P#=CHR$ (240) 

980 NS=CHRS (32) 

970 F1$=CHR$ (240) 

980 F28=CHR$ (241) 

990 Aer 

1000 Bt="" 

1010 S=0 

1020 NP=5 

1030 PX=20 
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AMSTRAD JEUX D'ACTION 


1040 PY=11 
1050 YP=PY 

1060 X1=5 

1070 X2=b 

1080 X3=8 

1090 K4=9 

1100 T=0 

1110 RESTORE 

1120 FOR I=1 TO 40 

1130 READ A 

1140 AS=A$+CHRS (A) 

1150 NEXT 1 

1180 B$=A$ 

1170 X=RND 138) +1 

1180 AS=RIBHTS (AS, )#LEFTS(A$,40-X) 
1190 RETURN 

1200 DATA 32,241,242,32,32,241,242,32,32,32,241 ,242,32,32,32,32,32,241 ,242,32 
1210 DATA 32,32,241,242,92,32,32,241 ,242,32,32,241,242,32,32,241 ,242,32,32,32,32 
1220 SOUND 1,500,100,15 
1230 SOUND 1,0,2 

1240 SOUND 1,500,75,15 
1250 SOUND 1,0,2 

1280 SOUND 1,500,25,15 
1270 SOUND 1,0,2 

1280 SOUND 1,500,100,15 
1290 SOUND 1,0,2 

1300 SOUND 1,425,75,15 
1310 SOUND 1,0,2 

1320 SOUND 1,450,25,15 
1330 SOUND 1,0,2 

1340 SOUND 1,450,75,15 
1350 SOUND 1,0,2 

1360 SOUND 1,500,25,15 
1370 SOUND 1,0,2 

1380 SOUND 1,500,75,15 
1390 SOUND 1,0,2 

1400 SOUND 1,525,25,15 
1410 SOUND 1,0,2 

1420 SOUND 1,500,100,15 
1430 FOR I=1 TO 200 
1440 NEXT 1 

1450 RETURN 
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ASSE-BRIQUE 


Voici un jeu que l'on a l'habitude de voir dans les cafés. Grâce à votre 
ordinateur, vous allez maintenant pouvoir en profiter sans dépenser un cen- 
time. Le but du jeu est simple : essayer de détruire un mur de briques à l'aide 
d’une balle que vous devez renvoyer avec votre raquette. Chaque brique cas- 
sée rapporte un point. Lorsque le mur est entièrement détruit, un nouveau 
mur apparaît. Vous disposez de dix balles pour tenter de marquer un score 
maximum. Utilisez le joystick ou les touches de contrôle du curseur pour 
déplacer la raquette. 


10 REM KHHKHHYHHEREREENRE 

20 REM # CASSE-BRIQUES # 

JO REM HHHHKHAKHAEEEREUNE 

40 DIM TB(40,25) 

s0 GOSUB 730 

60 GOTO 200 

70 D=2#((JDY(0)=4)-(J0Y(0)1=8)) 
80 IF D(>0 THEN D0=D 

90 IF JOY(0)=Q THEN DO=Ù 

100 RX=RK+D0 

110 CH=SGN(D0) 

120 RETURN 

130 D$=INKEYS 

140 D=2#{(D$=F1$)-(D$=F2$1) 
150 IF D(>0 THEN D0=D 

160 IF D$=CHR$(224) THEN DO=0 
170 RX=RX+D0 


AMSTRAD JEUX D'ACTION 


180 CH=SBN(DO) 
190 RETURN 

200 LOCATE BK,BY 

210 PEN { 

220 PRINT Nf; 

230 BX=BY+DX 

240 BY=BY+DY 

250 1F TB(BX,BV)C)O THEN DY=-DY:8=6#1:PRINT CHRS(7); 
240 LOCATE BX,BY 

210 PEN 0 

280 PRINT B$:TB(BX,BY)=0 

290 IF BY=23 AND ABSIBX-RA-3))1 THEN 420 
300 IF BY=23 AND BX3S AND BXC36 THEN LOCATE BX,BV:PRINT N$::BA=BX4CH 
310 IF BY=23 THEN PRINT CHRS(7);:DY=-DY 
320 IF BY=2 THEN PRINT CHR$(7)3:DY=-DY 
330 IF BY=3 OR BU=38 THEN PRINT CHRS (7) ;:DX=-Dk 
340 ON JS GOSUB 70,130 

350 IF RKCA THEN Rs 

360 IF RX334 THEN RI=34 

370 LOCATE RX,RY 

380 PEN 2 

390 PRINT R$; 

400 IF 6=204 THEN GOSUB 1290 

410 G0TO 200 

420 NB=NB+1 

430 IF NB=11 THEN 540 

440 LOCATE BX,BY 

450 PRINT N$; 

480 FOR I=1 TO 3 

470 PRINT CHR$(7); 

480 FOR J=1 TO 100 

490 NEXT J 

500 NEXT [ 

510 D0=0 

520 GOSUB 1230 

530 G0TO 200 

540 LOCATE 14,6 

550 PEN 3 

560 S=5+4044K 

570 PRINT "SCORE :"38; 

580 IF SRI THEN RI=S 

590 LOCATE 14,11 
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CASSE-BRIQUES 


800 PRINT "RECORD :";R1; 
610 LOCATE 14,16 

820 PRINT "UNE AUTRE ?"; 

830 NB=0 

640 K=0 

650 5=0 

860 D$=INKEYS 

870 IF D#C)"" THEN 860 

680 D$=INKEVS 

890 IF D$="" THEN 680 

700 IF D$C)"N" AND D$C)'n" THEN 50 
710 CLS 

720 END 

730 MODE ! 

740 CLS 

750 INK 0,2 

780 INK 1,25 

770 INK 2,0 

780 INK 3,14 

790 BORDER 17 

800 PAPER ! 

810 SYMBOL 240,255,255,255 

820 SYNBOL 241,60,126,255,255,255,255, 124,60 
830 SYMBOL 242,8,8,8,8,8,8,8,255 
840 SYMBOL 243,0,0,0,0,0,0,0,255 
850 B1$=CHR$ 1242) 

860 B2$=CHRS (243) 

870 NS=CHRS (32) 

BBO RS=NSENSCHRS (240) 4CHR$ (240) 4CHR$ (240) +N$4N$ 
890 B#=CHR$ (241) 

900 F1$=CHR$ (242) 

910 F2$=CHR$ (243) 

920 LOCATE 2,11 

930 PEN 2 

940 PRINT "JOYSTICK (0 ou N) ?"; 
950 D$=INKEVS 

960 IF D$="" THEN 950 

970 IF D$="Q" THEN JS=1 ELSE 1822 
980 CLS 

990 PEN 2 

1000 FOR BX=2 TO 39 

1010 LOCATE BK, 1 


A < De 


AMSTRAD JEUX D'ACTION 


1020 PRINT CHR$ (143); 

1030 NEXT EX 

1040 FOR BY=2 TO 23 

1050 LOCATE 2,8Y 

1060 PRINT CHR$ (143); 

1070 LOCATE 39,BY 

1080 PRINT CHR$ (143); 

1090 NEXT BY 

1100 PAPER 3 

1110 FOR BY=3 TO 8 

1120 FOR BX=4 TD 36 STEP 2 
1130 TB(BX,BYI=1:TB(BX+I ,BY)=1 
1140 LOCATE BX,BY 

1150 IF BY/2OINT(BY/2) THEN 1180 
1180 PRINT Bi$;B2$3 

1170 GOTO 1190 

1180 PRINT B2$;Bi$; 

1190 NEXT BK 

1200 NEXT BY 

1210 PAPER | 

1220 RI=17 

1230 RY=24 

1240 BY=23 

1250 BX=INT (RND (1) #32)+5 
1260 DY=-1 

1270 DK=L INT (RND(13#2)-0,5) #2 
1280 RETURN 

1290 K=k+1 

1300 5=0 

1310 LOCATE BX,BY 

1320 PRINT N$; 

1330 LOCATE RX#2,RY 

1340 PRINT NS;N$3N$; 

1350 GOSUB 990 

1360 RETURN 
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POURSUITE 


Le voleur s’est échappé, emportant le magot. (Il est représenté par un 
masque noir.) Il se cache dans la ville et vous avez trente minutes pour le 
débusquer et l'arrêter. Attention, pas de précipitation ! En effet, si vous vous 
jetez sur lui sans réfléchir, il y a toutes les chances pour qu'il vous file entre 
les doigts. La meilleure façon de vous y prendre est de l’aborder de côté. 
(Efficace à tous les coups à condition de ne pas le rater !) Si vous ne vous 
sentez pas assez sûr de vous, attaquez-le de face, ce qui est plus facile mais 
moins efficace car moins discret. Encore un conseil : n’essayez pas de le 
poursuivre ; cela ne vous mènerait à rien car il est aussi rapide que vous. 
Observez plutôt ses mouvements comme un vrai détective. Quand vous le 
verrez tourner en rond, approchez-vous sans faire de bruit et surgissez au 
bon moment. Mais rappelez-vous, le temps presse ! 

Pour vous déplacer, utilisez le joystick ou les touches de contrôle du 
curseur. 


10 REM HA#HHERERHNEE 
20 REM * POURSUITE # 
30 REM HHHHEHEHNEUNEX 
40 DIM TB(40,25) 

50 GOSUB 1360 

60 S=0 

70 N$=CHR$ 132) 

80 V$=CHR$ (224) 

90 V=224 

100 P$=CHR$ (251) 

110 P=251 

120 GOSUB 820 


AMSTRAD JEUX D'ACTION 


130 ON JK GOSUB 200 
140 D$=INKEYS 

150 DHe(D#=F1$)-(D$2F2$) 

160 DV=(D$=F34) - (D$=F4$) 

170 IF DHC)0 THEN DA=DH: DV=0 
180 1F DVC)0 THEN DY=DV:D4=0 
190 GOTO 230 

200 ST=J0V(0) 

210 DA=(ST24)-(ST=8) 

220 DY=(STe1)-(ST=2) 

230 1=1-0,2 

240 LOCATE 1,25 

230 PEN ! 

280 PRINT "TEMPS :"3 INT (241) 
270 IF 240 THEN 520 

280 PX=PA+DX 

290 PY=PY4DY 

300 C=TB(PX,PY) 

310 IF CeV THEN 1270 

320 IF C(0 THEN PX=KP:PY=P 
330 LOCATE XP, YP 

340 PRINT N#3:TB(XP,YP)20 
350 LOCATE PX,PY 

340 PEN 2 

370 PRINT P$3:TB(PX,PY)»P 
380 YP=PY 

390 XP=PX 

400 VX=VX4CX 

410 VY=WY4CY 

420 1F TB(VX,WY)C)0 THEN GOSUB 660 
430 IF TB(VX,VY)<>0 THEN 400 
440 LOCATE XV, YV 

450 PEN ! 

480 PRINT N$3 : TB(XV, YV)=0 
470 LOCATE VX,WY 

480 PRINT V$3: TBIVX,VY)=V 
490 XV=VX 

500 WV=VY 

510 GOTO 130 

520 IF INKEYS()"" THEN 520 
530 IF RÇS THEN Re$ 

540 PEN ! 
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POURSUITE 


550 LOCATE 11,7 
560 PRINT “TEMPS ECOULE"; 
570 LOCATE 11,11 

580 PRINT "SCORE :"36 
590 LOCATE 11,19 

800 PRINT "UNE AUTRE 2"; 
810 D#=INKEYS 

820 IF D$="" THEN 610 


630 IF D$C>"N" AND D$()"n" THEN RUN 


640 CLS 

650 END 

660 DTaDT+i 
670 GOSUB 770 


680 IF TB(AV+CA,VV+CY)=0 THEN VX=XV+CX: VY=VV+CY: RETURN 


690 DT=DT-2 
700 GOSUB 770 


710 IF TB(NV4CX,YV+CY)=0 THEN VX=XV+CX: VY=YV+CY: RETURN 


720 DT=DT-1 

730 GOSUB 770 

740 VX=XV+CX 

750 VYeYV+CY 

760 RETURN 

770 IF DT>4 THEN DT=DT-4 

780 IF DTCi THEN DT=DT+4 

790 C=(DT=1)-(DT=3) 

800 CY=(DT=2)-(DT=4) 

810 RETURN 

820 CLS 

830 PEN 2 

840 FOR VA=1 TO 40 

850 LOCATE VI, Î 

860 PRINT CHR$(143);:TB(VX,1)=143 
870 LOCATE VK,24 

880 PRINT CHR$(143);:TB(VX,24)2143 
890 NEXT VX 

900 FOR VY=2 TO 23 

910 LOCATE ,VY 

920 PRINT CHR#(143);:TB(1,VY)=143 
930 LOCATE 40, VY 

940 PRINT CHR$(143)::TB(40,VY)=143 
950 NEXT VWY 

960 PEN 3 
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AMSTRAD JEUX D'ACTION 


970 FOR VX=1 T0 150 

980 GOSUB 1230 

990 LOCATE PX,PY 

1000 PRINT CHR$1143) : :TBIPX,PY)=143 
1010 NEXT VX 

1020 GOSUB 1230 

1030 VX=PX 

1040 VY=PY 

1050 PEN 1 

1080 LOCATE VX, VY 

1070 PRINT V#3 : TBUVX VV) =V 
1080 KV=VX 

1090 YV=VY 

1100 G0SUB 1230 

1110 PEN 3 

1120 LOCATE PX,PY 

1130 PRINT P#3:TB(PX,PY)=P 
1140 P=PX 

1150 YP=PY 

1180 2=30 

1170 CA=0 

1180 CY=0 

1190 D=0 

1200 DY=0 

1210 DT=0 

1220 RETURN 

1230 PX=INT (RND 1) #38) +2 
1240 PY=INT (RND 1} #22) 42 
1250 IF TB(PX,PY)CDO THEN 1230 
1280 RETURN 

1270 LOCATE VA, VY:PEN 2:PRINT CHR$(225) ; 
1280 FOR I=1 T0 5 

1290 SOUND 1,450,100,15 
1300 SOUND 1,500,100,15 
1310 NEXT I 

1320 ERASE TB 

1330 DIM TB(40,25) 

1340 S=5+1 

1350 GOTO 120 

1360 NODE ! 

1370 BORDER 1 

1380 INK 0,2 


POURSUITE 


1390 INK 1,18 
1400 INK 2,22 

1410 INK 3,25 

1420 CLS 

1430 F1$=CHR$ (242) 

1440 F2$=CHR$ (243) 

1450 F3$=CHR$ (240) 

1480 F4$=CHRS (241) 

1470 LOCATE 11,11 

1480 PRINT "JOYSTICK 7"; 

1490 DS<INKEYS 

1500 PX=RND(1) 

1510 IF D$="" THEN 1490 

1520 IF D$="0" OR D$="0" THEN JK=1 
1530 RETURN 
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Vous voici seul, abandonné sur une planète défendue par des robots meur- 
triers. Le sol est truffé de mines qu'il vous faut absolument éviter. Les mines 
sont représentées sur l'écran par des losanges rouges. Au début du jeu, cinq 
robots sont présents sur le terrain. Sans perdre une seconde, ils se précipi- 
tent sur vous en suivant toujours le plus court chemin. Par chance, les robots 
sont aveugles et ne voient pas les mines qui se trouvent entre eux et vous, 
ce qui vous permet, en vous déplaçant judicieusement, de les éliminer. Utili- 
sez pour cela le joystick ou les touches : 


<QO> <W> <E> 
<A> <D> 
<Z> <X2> <C> 


suivant la direction que vous avez choisie. Lorsque tous les robots sont éli- 
minés, le jeu reprend avec un robot supplémentaire. Si vous sautez sur une 
mine ou si un robot vous tue, tout n'est pas perdu. Vous disposez en effet 
de cinq vies. Si vous désirez changer le nombre de mines, modifiez la valeur 
de la variable NM à la ligne 80. 


10 REM HHHHÈERHEE 
20 REM # ROBOTS # 
30 REM #RHHEHHHEX 
40 DEFINT A-2 

50 DIN TB(40,25) 
60 NH=5 

70 N1=5 

80 NH=40 

90 NR=NI 


AMSTRAD JEUX D'ACTION 


100 DIM R(30,1) 
110 GOSUB 1810 

120 GOSUB 1470 

130 GOSUB 890 

140 ON JS GOSUB 690,790 

150 FOR I=1 TO 100 

160 NEXT ! 

170 C=TB(HX,HY) 

180 IF CCH AND C4)0 THEN 490 
190 PEN 1 

200 LOCATE X,Y 

210 PRINT N#3:TBUX,Y) =0 

220 LOCATE HX,HY 

230 PRINT H$;:TBHX,HY)=H 

240 X=H 

250 Y=HY 

280 T=0 

270 FOR I=1 TO NR 

280 IF R(1,0)=0 THEN 420 

290 Tai 

300 RA=R(1,0)#S6N(HX-RI1,0)) 
310 RVSR(I,1)#86NEHY-R(T,L)) 
320 CaTB(RK,RY) 

330 IF CeW OR CeR THEN S=S+#1:LOCATE RO) RIT): PRINT Nés 
TBIRUI,0) R(I,1))=0:R(T,0)=0:60T0 420 
340 IF C=H THEN 490 

350 PEN 3 

340 LOCATE R(I,0),RUI, 1) 

370 PRINT N$3:TBR(I,0) RIT, 1))=0 
380 LOCATE RX,RY 

390 PRINT R$32TBURY,RY)=R 

400 RII,0)=R 

410 RCI, LIsRY 

420 NEXT I 

430 IF T=0 THEN 450 

440 G0TO 140 

450 S=5+10 

460 IF INKEYSC)'" THEN 480 
470 IF NRÇ3O THEN NR=NR+1 

480 G0TO 130 

490 NH=NH-1 

500 PEN 2 


ROBOTS 


510 LOCATE K, 

520 PRINT N$3:TB(X,Y)20 

530 LOCATE HK,HY 

540 PRINT H$32TBIHX,HY)eH 

550 1F INKEV#C)"* THEN 550 

560 IF NH3O THEN NR=N1:G0TO 130 
570 CLS 

580 LOCATE 10,11 

890 PRINT "SCORE :°18; 

800 LOCATE 10,21 

610 PRINT "UNE AUTRE 7"; 

420 PEN 1 

430 IF INKEV#C)"" THEN 830 

640 DS=INKEYS 

650 IF Dé="" THEN 640 

&60 1F D$C)"N" AND D$C)"n" THEN RUN 
670 CLS 

680 END 

490 D$=INKEYS 

700 1F D$="@" THEN HX=HX-1:HY=HY-1 
710 IF D$="W" THEN HY=HY-1 

720 IF D$="E" THEN HY=HY-1:HXeHX+i 
730 IF Dé="A" THEN HX=H-1 

740 IF Dé="D" THEN HX=HX+1 

750 IF D$="2" THEN HX=HX-1:HY2HV#1 
760 IF Dé="X" THEN HY=HY+1 

770 IF Dé="C" THEN HY=HY#1:HX=HN+1 
780 RETURN 

790 J=J0Y(0) 

800 IF J=5 THEN HX=HX-1:HY=HY-1 
810 IF J=i THEN HY=Hÿ-1 

820 IF J=9 THEN HY=HY-1:HN=H41 
830 1F Je4 THEN HI=HX-1 

B4O IF J=8 THEN HX=HX+1 

850 IF J=6 THEN HI=HX-1:HY=HY+1 
880 IF J=2 THEN HY=HY+ 

870 IF Je10 THEN HYeHY+1:HX=HX41 
880 RETURN 

890 CLS 

900 PEN ! 

910 LOCATE 1,25 

920 PRINT "SCORE "16; 





AMSTRAD JEUX D'ACTION 


930 IF NH=1 THEN 980 

940 FOR HX=1 TD NH-1 

950 LOCATE 20+H4,25 

960 PRINT H$3 

970 NEXT HX 

980 PEN 2 

990 ERASE TB 

1000 DIM TB(40,25) 

1010 FOR HX=1 T0 40 

1020 LOCATE HX,1 

1030 PRINT M#;2TB(HX,1)=h 
1040 LOCATE HX,24 

1050 PRINT M$; :TBUHX,24) 8h 
1080 NEXT HX 

1070 FOR HY=2 T0 23 

1080 LOCATE 1,HY 

1090 PRINT M$;2TBU1,HY)=H 
1100 LOCATE 40,HY 

1110 PRINT M$; :TB(40,HY)=h 
1120 NEXT HY 

1130 FOR I=i TO NM 

1140 Hlz INT (RND (1) #38) +2 
1150 HY=INT(RND (4) #221+2 
1180 IF TBHX,HY)<0 THEN 1140 
1170 LOCATE HX,HY 

1180 PRINT M$: TBUHX,HY)=M 
1190 NEXT ! 

1200 PEN 2 

1210 FOR I=1 TO NR 

1220 RUI,0)= INT (RND (1) #38) +2 
1230 RIL,L)=INT (RND (1) #22) +2 
1240 IF TBIR(I,0),R(I,1))30 THEN 1220 
1250 LOCATE R(1,0),R(T,1) 
1260 PRINT R$3:TBUR(I,0) ,RI,1))=R 
1270 NEXT ! 

1280 HX=INT (RND (1) #38) +2 
1290 HY= INT (RND (1) #22) +2 
1300 IF TB(HX,HY)C)0 THEN 1280 
1310 XeHX 

1320 Y=HY 

1330 FOR I=1 TO 5 

1340 LOCATE HX,HY 


sp = 


ROBOTS 


1350 PEN 3 

1360 PRINT CHRS(143): 

1370 PRINT CHR$(7) 

1380 FOR J=1 10 50 

1390 NEXT J 

1400 LOCATE HX,HY 

1410 PEN ! 

1420 PRINT H$3 : TBCHX,HY)=H 

1430 FOR Jei TO 50 

1440 NEXT J 

1450 NEXT 1 

1460 RETURN 

1470 CLS 

1480 MODE 1 

1490 INK 0,1 

1500 INK 1,25 

1510 INK 2,23 

1520 INK 3,16 

1530 BORDER 22 

1540 LOCATE 11,11 

1950 PRINT "JOYSTICK 7"; 

1560 D$=INKEYS 

1570 C=RND(1) 

1580 IF D$="" THEN 1580 

1590 IF D$="0" OR D$="o" THEN JS=2 ELSE JS=1 
1800 RETURN 

1610 SYNBOL 240,28,28,73,82,8,28,20,20 
1620 SYHBOL 241,60,124,219,255,255, 126, 36,80 
1630 SYMBOL 242,0,0,24,60,126,126,60,24 
1640 H$=CHRS (240) 

1650 H=240 

1860 RS=CHRS (241) 

1870 R=241 

1680 ME=CHRS (242) 

1690 M=242 

1700 N#=CHRS (32) 

1710 RETURN 
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PARACHUTE 


Essayez, en sautant d'un hélicoptère en vol, d'atteindre la cible qui se 
trouve au sol. Une première pression sur une touche vous permet de des- 
cendre verticalement en chute libre. Une deuxième pression entraîne l'ouver- 
ture du parachute. La descente continue alors plus lentement et avec un angle 
de 45 degrés car le vent vous pousse. Plus vous attendrez pour ouvrir votre 
parachute et moins vous serez déporté. Mais n'attendez pas trop longtemps 
car, au-dessous de cent mètres, le parachute ne s'ouvre plus. 


10 REM #HEHXHHHHEEREEHE 

20 REM # PARACHUTE # 

30 REM #H#H#HHHRENENX 

40 S=0 

50 GOSUB 610 

60 H=H-1 

70 IF H=0 THEN LOCATE Î,1:PRINT M$: :HH=37:H237 
80 PEN 1 

90 LOCATE H,1 

100 PRINT H$; 

110 D$=INKEYS$ 

120 IF D$="" THEN 170 

130 IF PV>18 THEN 170 

140 IF SP=1 THEN OP=1:60T0 160 
150 SP={ 

160 IF OP=0 THEN PV=1:PH=H+1,5 
170 IF SP=0 THEN 420 


AMSTRAD JEUX D'ACTION 


180 1F OP=0 THEN PV=PV4l 
190 1F OP=1 THEN PV=PV40.5:PH=PH-0,5 
200 1F PV)24 DR PH1 THEN 440 
210 IF OP=1 THEN 310 

220 LOCATE HO,V 

230 PRINT N$y 

240 VePV 

250 HO=PH 

240 PEN 2 

270 LOCATE HO,V 

280 PRINT Cé; 

290 FOR I=1 T0 120:NEXT I 

300 GOTO 40 

310 PEN 2 

320 LOCATE HO,V 

330 PRINT N$: 

340 LOCATE HO, V4i 

350 PRINT Né; 

340 V=PV 

370 HO=PH 

380 LOCATE HO,V 

390 PRINT P#; 

400 LOCATE HO,V+{ 

410 PRINT G$; 

420 FOR 1=1 T0 120:NEXT I 

430 GOTO 80 

440 IF INT (HO40.5)C)PA THEN 500 
450 FOR I=1 TO 500 

480 NEXT I 

470 S2$+1 

480 GOSUB 610 

490 GOTO 60 

500 CLS 

510 PEN 3 

520 LOCATE 15,10 

530 PRINT "SCORE :":8; 

540 LOCATE 15,14 

550 PRINT “UNE AUTRE 7"; 

560 D$=INKEYS 

570 IF D$="" THEN 560 

580 IF D$C)"N" AND D$C)"n" THEN RUN 
590 CLS 


PARACHUTE 


800 END 
b10 INK 0,20 

820 INK 1,2 

830 INK 2,16 

640 INK 3,0 

850 BORDER 22 

680 MODE 1 

670 CLS 

680 SYMBOL 240,20,20,28,28,82,73,93,93 
890 SYMBOL 241,0,0,0,28,62,127,127,85 
700 SYMBOL 242,93,93,73,62,28,28, 20,20 
710 SYMBOL 243,63,1,15,31,31,63,83,31 
720 SYMBOL 244,248,0,128,224,255,255,240, 192 
730 SYMBOL 245,0,0,12,12,252,248,0,0 
740 NS=CHRS (32) 

750 M$=NS4N$4N$ 

760 H$=CHRS (243) 4CHR$ (244) 4CHR$ (245) +N$ 
770 1=0 

780 C#=CHR$ (240) 

190 P#CHRS(241) 

800 Q$=CHR$ (242) 

810 A$=CHR$(143) 

820 H=37 

830 PA=INT IRND(1)431)41 

840 LOCATE PA,25 

850 PEN 3 

869 PRINT A$: 

870 SP=0 

880 OP=0 

890 PH=0 

900 PV=0 

910 CCe2 

920 Vsi 

930 HOe! 

940 RETURN 


— 91 — 


_4 


| 4 
SYBEX 


FRANCE 
6-8, Impasse du Curé 
75881 PARIS CEDEX 18 
Tél. : (1) 42.09.95.95 
Télex : 211801 
Télécopie : 42.09.01.45 


U.S.A. 

2021 Challenger Drive, 100 
ALAMEDA - CALIFORNIA 94501 
Tél. : (415) 523-8233 
(800) 227-2346 (Outside CA) 
Télex : 336311 


R.F.A. 


Vogelsanger Weg 111 
Postfach 300961 
4000 DÜSSELDORF 30 
Tel. : (211) 61802-0 
Télex : 8588163 


PAYS-BAS 
Birkstraat 95 
Postbus 3177 
3760 DD SOEST 
Tél. : (31) 2155 276 25 
Télécopie : (31) 2155 265 56 


DISTRIBUTION BELGIQUE 
Presses de Belgique 
96, rue Gray 
1040 BRUXELLES 


DIFFUSION CANADA 
Diffulivre 
817, rue Mac Caffrey 
SAINT-LAURENT 
QUÉBEC HAT 1N3 


DIFFUSION SUISSE 


Office du Livre 
Route André Piller, 39 
CH-1720 CORMINBŒUF 


Paris - San Francisco + Düsseldorf + Londres + Amsterdam 


Achevé d'imprimer le 26 novembre 1990 sur les presses de l’Imprimerie «La Source d'Or» 
63200 Marsat - Dépôt légal : 4° trimestre 1990 - Imprimeur n° 3827 


















Classement dans vos rayons 
Microprocesseurs 
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intégrés 
Applications graphiques 
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Amstrad 
Jeux d’action 


Voici un livre destiné à tous les possesseurs de consoles AMSTRAD, anciennes 
ou nouvelles versions, qui vous propose de programmer vous-même vos propres 
jeux d'action en BASIC. 


Au-delà du jeu lui-même, l'étude de ces programmes vous enseignera de nom- 
breuses techniques de programmation relatives au son, au graphisme haute réso- 
lution, aux couleurs... 


Une méthode d'apprentissage originale du BASIC qui exploite un grand éventail 
d'outils qui vous seront très utiles pour développer vos propres logiciels de jeux ! 
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